home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / gauge.gc < prev    next >
Text File  |  1999-05-14  |  953b  |  50 lines
  1. G4C
  2.  
  3. ; example of all types of Gauges
  4.  
  5.  
  6. winbig -1 -1 250 150 Gauge    ; our window
  7. wintype 11110001        ; and what it should look like
  8.  
  9. xonload
  10.     val = 50                        ; set the starting value of the Gauges
  11.     guiopen Gauge.gc        ; open our gui
  12.  
  13. xonclose
  14.     guiquit Gauge.gc
  15.  
  16.  
  17. ; ----------------  6 types of Gauges with various borders & fill colors
  18.  
  19.  
  20. Gauge 10 10 230 15 in button 3 0 50
  21.     gadid 1
  22.  
  23. Gauge 10 30 230 15 out button  3 0 50
  24.     gadid 2
  25.  
  26. Gauge 10 50 230 15 in ridge 2 0 50
  27.     gadid 3
  28.  
  29. Gauge 10 70 230 15 out ridge 2 0 50
  30.     gadid 4
  31.  
  32. Gauge 10 90 230 15 in icondrop 2 1 50
  33.     gadid 5
  34.  
  35. Gauge 10 110 230 15 out icondrop 2 1 50
  36.     gadid 6
  37.  
  38.  
  39. ; --------------- a slider to play around with the values
  40. ; whenever the slider "happens", we update the gauges accordingly.
  41.  
  42. xHSlider  10 130 190 15 '' val 0 100 50 %ld%%
  43.     update  Gauge.gc 1 $val
  44.     update  Gauge.gc 2 $val
  45.     update  Gauge.gc 3 $val
  46.     update  Gauge.gc 4 $val
  47.     update  Gauge.gc 5 $val
  48.     update  Gauge.gc 6 $val
  49.  
  50.